#=============================================================================================
# @TITLE			New Database - 2nd step.
#
# @NUMBER			WDBM_FKT_01021
#
# @DESCRIPTION		A new database will be created by using the database wizard.
#
# @EXP_RESULT		The service is running.
#
# @REQUIREMENTS		Test: WDBM_FKT_01000; WDBM_FKT_00100; WDBM_FKT_01020;
#=============================================================================================

public function trim (in str) {
	if (substr(str, 1, 1) == " ") {

		str = trim(substr(str, 2));
	}
	if (substr(str, length(str)) == " ") {
		str = trim(substr(str, 1, length(str)-1));
	}
	return (str);
} 

public version_table_ok = 1;
public version_table_1[] = {"Version","InstRoot"};
#=============================================================================================
# @STEP 1			Checking the possible versions for database instance.
#=============================================================================================
set_window (work_window, 1);

for (n=1;n<3;n++) {
	
	if (new_interface == "1") {
		web_obj_get_text ("1x1", "#1", "#"&n, cell_value, "", "", 1);
	} else {
		tbl_get_cell_data ("1x1_5", "#1", "#"&n, cell_value);
	}
			
    if (cell_value != version_table_1[n-1]) {
        version_table_ok = 0;
        break;
    }
}

if (version_table_ok == 0) {
	tl_step ("table of database versions","1","is incorrect");
} else {
	tl_step ("table of database versions","0","is correct");
}
#=============================================================================================
# @STEP 2			Checking the previous button - content of 1st step.
#=============================================================================================
set_window (work_window, 1);
web_link_click ("Previous");

set_window (work_window, 1);
edit_get_text ("Database",text);

if(text == database) {
	tl_step ("name for database instance","0","is still correct");
	
	set_window (work_window, 1);
	web_link_click ("Next");
} else {
	tl_step ("name for database instance","1","has changed");
	
	set_window (work_window, 1);
	edit_set ("Database", database);
	web_link_click ("Next");
}
#=============================================================================================
# @STEP 3			Checking whether runtime error occures.
#=============================================================================================
if (win_exists ("Error",0) == 0) {
	tl_step ("Runtimeerror occured","1","incorrect");
	set_window ("Error", 1);
	button_press ("No");
} else {
	tl_step("Runtimeerror did not occure","0","correct");
}
#=============================================================================================
# @STEP 4			Selecting the version for database instance - go for next step.
#=============================================================================================
set_window (work_window, 1);
if (new_interface == "1") {
	tbl_get_rows_count ("1x1", rows_count);
} else {
	tbl_get_rows_count ("1x1_5", rows_count);
}
for (i=1;i<=rows_count;i++) {
	
	set_window (work_window, 1);
	if (new_interface == "1") {
		web_obj_get_text ("1x1", "#"&(i+1), "#1", cell_value, "", "", 1);
	} else {
		tbl_get_cell_data ("1x1_5", "#" & (i+1), "#1", cell_value);
	}
	
	if (match (trim(cell_value), version_inst) != 0) 
	{
		web_obj_get_text ("1x1", "#"&(i+1), "#2", cell_value2, "", "", 1);

		if (match (cell_value2, qa_Level) != 0)
		{
			set_window (work_window, 1);
			button_set ("Version_" & i, ON);
			break;
		}
	}
}

set_window (work_window, 1);
web_link_click("Next");
#=============================================================================================
# @STEP 5			Checking whether next step was reached.
#=============================================================================================
set_window (work_window, 1);

if (obj_exists("DBMName",0) == 0 &&
	obj_exists("DBMPwd1",0) == 0 &&
	obj_exists("DBMPwd2",0) == 0 &&
	obj_exists("DBAName",0) == 0 &&
	obj_exists("DBAPwd1",0) == 0 &&
	obj_exists("DBAPwd2",0) == 0) {
	
	tl_step("next database step","0","was reached successfully");
} else {
	tl_step("next database step","0","was reached successfully");
}
